home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
PASDEMO2
/
P583.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-09-02
|
859b
|
33 lines
{ The following code assumes these decalarations:
Const Max = 20;
Type ListData = Packed Array[1..Max] of Char;
ListPointer = ^Item;
Item = Record
Data : ListData;
Next : LIstPointer
End;
PointerArray = Array['A'..'Z'] of ListPointer;
}
procedure Print( First: PointerArray);
{This procedure prints the current data items on the list }
var Index : 'A' .. 'Z';
ListElt : ListPointer;
begin
writeln( 'The list of tasks is' );
writeln;
for Index := 'A' to 'Z'
do begin
ListElt := First[Index];
while ( ListElt <> Nil )
do begin
writeln( ListElt^.Data );
ListElt := ListElt^.Next
end
end;
writeln;
writeln( 'End of List' );
writeln
end { print };